home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 1 / PC World Interactive 1 - Nisan 1997.iso / nostalji / ps / 18 / progbank / ps18.ico < prev    next >
Text File  |  1994-11-15  |  766b  |  27 lines
  1. OCATE MenuYatay, MenuDikey
  2.      PRINT "╔"; STRING$(MenuGenis, "═"); "╗"
  3.    LOCATE MenuYatay + MenuYuksek, MenuDikey
  4.      PRINT "╚"; STRING$(MenuGenis, "═"); "╝";
  5.  
  6.  DEF SEG = EkranAdresi
  7.    FOR I = 1 TO MenuGenis + 1
  8.      POKE ((MenuYatay + MenuYuksek) * 160 + (MenuDikey + I) * 2 + 1), 9
  9.    NEXT
  10.    FOR I = 1 TO MenuYuksek + 1
  11.      TR = ((MenuYatay + I - 1) * 160 + (MenuDikey + MenuGenis + 1) * 2 + 1)
  12.      POKE TR, 9
  13.      POKE TR + 2, 9
  14.    NEXT
  15.  
  16.  DEF SEG
  17.  LOCATE MenuYatay + MenuYuksek, MenuDikey + MenuGenis - LEN(Cer$) - 1
  18.  PRINT Cer$
  19.  COLOR Renk(3), Renk(4): LOCATE MenuYatay, MenuDikey + 3: PRINT Sec$(0)
  20. END SUB
  21.  
  22. SUB EkranAyarla
  23. PCOPY 3, 0
  24.       Sec$(0) = "Ana Menu"
  25.       MenuYatay = 2
  26.       MenuGenis = LEN(Dizin$) + 14
  27.       MenuD